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1. ABSTRACT 



FPB IS A BKMOD THAT EXERCISES AN FPll-B OR FPll-C FLOATING 
POINT PROCESSOR. IT EXERCISES THE PROCESSOR BY CALCULATING 
THE LEFT AfID RIGHT HAND SIDES OF 3 IDENTITIES AND COMPARING 
THE RESULTS. THE NUMBERS ARE GENERATED BY A RANDOM NUMBER 
GENERATOR. THE IDENTITIES ARE EVALUATED IN BOTH SINGLE AND 
DOUBLE PRECISION, 

REQUIREMENTS 

HARDWARE: AN FPll-B OR FPll-C FLOATING POINT PROCESSOR 
CONFIGURED ON A PDP-11/45, 55^ OR 70. 

STORAGE:: FPB REQUIRES: 

1. DECIMAL WORDS: 1498 

2. OCTAL WORDS: 02732 

3. OCTAL BYTES: 5664 

PASS DEFINITION 



ONE PASS OF THE FPB MODULE CONSISTS OF 2500 (OCTAL) CYCLES OF 
THE TEST SEQUENCE. 

EXECUTION TIME 



ONE PASS OF FPB RUN!II^^G ALONE ON A PDP-11/70 TAKES 
APPROXIMATELY 20 SECONDS* 

CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS: 
VECTOR: NONE 
REQUIRED PARAMETERS: 

DEVICE/OPTION SETUP 



HAKE SURE A FLOATING POINT PROCESSOR IS INSTALLED. 
MODULE OPERATION 



TEST SEQUENCE! 



A. GENERATE 2 SINGLE PRECISION FLOATING POINT NU^^BERS* 
R. CALCULATE LEFT HAND SIDE IF FIRST IDENTITY. 
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SEQ 0003 



D. 



CALCULATE RIGHT HAND SIDE OF FIRST IDEHTITY, 
CALCULATE THE GUARAHTEED NUMBER OF IDENTICAL BITS. 



PAGE 2 



9. 



E. TEST THE 2 RESULTS TO BE MITHIN NUMBER OF GUARANTEED BITS. 

F. REPEAT STEPS B THRU B FOR SECOND AND THIRD IDENTITIES* 

G. TEST LOAD AND STORE CONVERT INSTRUCTIONS. 

H« GENERATE 2 DOUBLE PRECISION FLOATING POINT NUMBERS* 

I, REPEAT STEPS B THRU G IN DOUBLE PRECISION* 

OPERATION OPTIONS 
NONE 

NON-STANDARD PRINTOUTS 



IF THE LEFT AND RIGHT HAND SIDES OF ANY OF THE IDENTITIES ARE 
NOT EQUAL WITHIN THE GUARANTEED NUMBER OF BITS AN ERROR CALL 
IS MADE TO THE DEC/Xll MONITOR. THEN A MESSAGE CALL IS MADE 
WHICH TYPES THE LEFT AND RIGHT HAND SIDES OF THE EQUATION IN 
THE FOLLOWING FORMATS 

DATAl 

S EEE AAA BBBBBB CCCCCC DDDDDD XXXXXX 
DATA2 

S EEE AAA BBBBBB CCCCCC DDDDDD XXXXXX 



WHERES 
S 

EEE 
AAA 

BBBBBB 
CCCCCC 
DDDDDD 
XXXXXX 



= SIGN 

= EXPONENT (SHOULD ALWAYS BE 200) 

= FRACTION BITS <57251> (RIGHT JUSTIFIED) 

= FRACTION BITS <50535> 

= FRACTION BITS <34Sl9> 

= FRACTIOM BITS <18 2 03> 

= EXTENDED EXPONENT (2'S COMPLIMENT NOTATION) 



THE ABOVE EXAMPLE IS GIVEN FOR A DOUBLE PRECISION FAILURE. IF 
A SINGLE PRECISION FAILURE OCCURS^ WORDS C AND D ARE NOT 
TYPED. 
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000000 
000000 
OOOQOl 



000005 
000006 



OOQQOO- 
000000' 



000000' 
000000' 
000005- 

000014- 
000016- 



000024- 
000026' 

ml- 

000040' 
000042' 
000044- 
0Q0046- 

Ihw 

000056- 
000056- 
000060- 
000062- 



040020 

mpr- 

000000 
002500 
OOOQQO 
000000 
000000 
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.LIST SEQ,BIN*LOC 
.NLIST HD/MC^cflD 
.LIST ME 



R7=%7 
PC=R7 



• • ** *«* 



.ENDM 
BKMOD 
MODULE 
.TITLE 
DDXCOM 



STARS 

<FPBC >^li-/,, ^2500, 100 
40020,FPBC f l#,e##5500,100 
FPBC DEC/Xll SySTEM EXERCISER MODULE 
VERSION 6 23-MAY-78 



. ****** 



.LIST BIN 
******************** 



it***************************tiit'i,* 



/FPBC / 
OPEN 



PRTY+0 
PHTY+0 



It at: 
INIT: 
SPOINT: 
PASCNT: 
ICONT: 
I COUNT: 

sdfcnt: 
hrdcht: 

SOFPAS: 
HRDPAS: 

syscnt: 
rannum: 

CONFIG: 

RESl: 

RES2: 

SVRO: 



: .ASCII 

.BYTE 
1+0 
: +0 
.BYTE 
.BYTE 

♦1 

OPEN 
OPEN 
OPEN 
OPEN 

*****************t 
40020 














OPEN 



JMODULE NAME. 

;USED TO KEEP TRACK OF WBUFF USAGE 
;1ST DEVICE ADDR. 

nST DEVICE VECTOR. 

?1ST BR LEVEL. 

;2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

;SViITCH REGISTER 1 

;S«ITCH REGISTER 2 

ySWITCH REGISTER 3 

;S«ITCH REGISTER 4 
*********************************************** 

;STATUS WORD. 
;HDDULE START ADOR. 
;M0DULE STACK POINTER. 
;PASS COUNTER. 

;# OF ITERATIONS PER PASS=2500 

;L0C TO COUNT ITERATIONS 

;LDC TO SAV£ TOTAL SOFT ERRORS 

?L0C TO SAVE TOTAL HARD ERRORS 

;LOC TO SAVE SOFT FRRORS PER PASS 

;LOC TO SAVE HARD ERRORS PEP PASS 

;i OF SYS ERRORS ACCUMULATED 

;HCLDS random * «HFN rand MACRC is CALLED 

;reserved for monitor use 
;reserved for monitor use 
;reserved for monitor use 

JLOC TO save RO. 
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SVRl: 
SVR2: 
SVR3: 
SVR4: 
SWR5: 
SVR6: 

csra: 
sbadr: 

ACSR: 

wasadr: 

astat: 

errtyp: 

asb: 

awas: 

rstrt: 

WDTO: 

udfr: 

INTR: 

idnum: 

rbufva: 
rbufpa: 
rbofea: 

RBOFSZ: 

wbofpa: 

HBUFEA: 

hbufrq: 

HBUFSZ: 
CDERCT: 

cdwdct: 
free: 



245 
-46 



OPEN 

open 

OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

100 

.IF NP <> 



OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.NLIST 

IMODX.=0 

.LIST 

.endc 

.REPT 
.NLIST 
.WORD 
.LIST 
.ENDR 
.»ORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



?LCC TO SAVE Rl. 
JLOC TO SAVE P2. 
;L0C TO SAVE R3. 
;LOC TC SAVE P4. 
JLDC TO SAVE R5. 
;L0C TO SAVE R6. 
;ADDR OF CURRENT CSR. 
;ADDR OF GOOD DATA, OR 

;contents of csr. 
;addr of bad data, op 
;status reg contents. 

5TYPE OF ERRCR 

;expected data. 
;actual data. 

;restart address after end of fass 
;words to memory per iteration 
;words from memory per iteration 

OF interrupts pep iteration 
jmodule identification NUMBER=1C0 

;READ BUFFER VIRTUAL ADDRESS 
;READ BUFFER PHYSICAL ADDRESS 
;READ BUFFER EA BITS 
jSIZE OF THE READ BUFFER 
JWRITE BUFFER PHYSICAL ADDRESS 
;WRITE DUFFER FA BITS 
;WRITS BUFFER SIZE REQUESTED 
JWRITE BUFFER SIZE AVAILABLE 
JCDATA/OATCK ERROR COUNT 
JCDATA/OATCK WORD COUNT 
JRESERVSD FOR FUTURE USE 



JMCDULE STACK STARTS HERE. 



SYSTEM EX 
12-OCT-7 
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mm. 



.WORD 
.»ORD 
.WORD 
.HQRD 
.WRD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.LIST SEQ 

;EQUATE STATEMENTS 

OPEHsfi 

PSwil7??76 



5=10 
4=40, 

mh 

1=4001 
0=2001 



00° 





T8=400 
T7=20Q 
f6=i00 
T5=40 
T4=20 
T3=10 

Ji 

ADDR22=100 

R0=%0 

R1=%1 

R2=%2 

R3=%3 

R4=%4 

R5=%5 

SP=%6 

PC=%7 

PIRQS=inT 

PRTY7=340 

PRTY6=300 

PRTY5=24Q 

PRTY4=200 
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000140 



SEQ 0007 



PRTY3=140 

PRTY2=100 

PRTYi=40 

PRTYO=0 

PRTY=0 

PUSH=005746 

PUSH2=024646 

POPSP=005726 

POPSP2=022626 

TRPDFD=0 

NULL=0 



JDEFFERRED SERVICE: 



EXITS=TRAP*TRPDFD 

MSG$=TRAP+TRPDFD 

MSGSS=TRAP-i-TRPOFD 

msgn|=irap+trpdfd^ 
daters=trap+trpdfd 
hrder|=trap-»-trpdfd 
sdfers=trap4-trpdfd 

BREAKi=TRAP+TRPDFD 

ENDS=tRAP+TRPDFD 

DATCKS=TRAP+TRPDFD 

CDATAS=TRAP4-TRPDFD 

ERDIT$=TRAP4-TRPDFD 



;direct service: 



04414 
04415 
04416 

ml 

04421 



ioiit' 004767 004136 
0230' 170127 000040 



♦ trpdfd 

♦ trpdfd 

+ TRPDFD 

TRPDFD 



ART: 

RESTRT 

LOOP: 



gwbufs= trap 
getpa$= trap 

MAP22$= TRAP 

rands= trap + 

OTQAS= TRAP + 

btods= trap ♦ 

.NLIST MC 

THIS^TEST^TAKEs'^TWO random numbers (A AND B) AND 
SECT3 A/B*B=A 

t* 1**51*** ************* 



************************************* 



JSR 

LDFPS 

LDF 

ldf 



PC,FLTSGL 
#46 

§TMP0,AC1 
$TMP2r*C0 



jget random operands 
jinit fps 
;load a operand 

;L0AD B operand 



;) 



• 
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004456 
004452 
003220 



000244- 016767 
000252' 016767 
000260' 004767 
4- 174100 

0' 174167 

000304- 016767 




004576 
004566 



004556 
004540 



004410 
004362 
004516 004516 

003074 

004502 004502 
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MOV 
MOV 
JSH 
STF 
MOV 
JSR 
STF 
MOV 
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004526 




SREGO/SACl 
SREGlj-SACO 
PC#FLTADD 
AC1,AC0 
SACl^SACO 
PC,FLfMPY 
AC1^STMP4 
SAC1,$REG2 



JSETUP EXTENDED 

;exponents 
?perform the add 
;setup ago to 
;perform the square 

;D0 THE MULTIPLY 
;SAVE RESULT 
;AND SOFTWARE EXP 



;HOH DO THE RIGHT HAND SIDE OF THE EQUATION 
;D0 THE A*A FIRST 
MOV 
LDF 



MOV 
LDF 
JSR 
STF 
MOV 

;N0« DO THE B* 
LDF 
LDF 
MOV 
HOV 
JSR 
STF 
MOV 

;NOy DO THE 2* 
MOV 
LDF 
LDF 
MOV 
MOV 
JSR 
LDF 
MOV 
JSR 



SREGO/SACO 
STMPO^ACO 



|AC0,SAC1 
XC0,AC1 
PC,FLTMPY 
ACl#AC2 
$ACl,$AC2 



$TMP2£AC0 

AC0,AC1 

SREGl^SACO 

|aco,|aci 

PC/FLtMPY 

AC1^AC3 

$AC1,$AC3 

B*A 

#STMP2yRl 
(R1),ACQ 

-(riLaci 

SREGl/SACO 

SREGO^SACl 

PC,FLTMPY 

«-O40000#AC0 

i2,SAC0 

PC/FLTMPY 



;GET EXT EXPONENT 

;load operand a 
;set operand b ext exponent 
;load b operand 
;execute the multiply 
;save result 



JLOAD B OPERAND 
?AND EXT EXPONENT 



?D0 THE MULTIPLY 
;SAVE THE RESULT 



;LOAD THE B OPERAND 
;LOAD THE A OPERAND 
;AND THE EXT EXPONENTS 



;HOy SUM THE RESULTS 

MOV SAC3,SAC0 
AC3,JC0 



LDF 
JSR 
LDF 
MOV 
JSR 
STF 
MOV 



AC3|,JC0 
PC,FLTADD 
AC2,AC0 
$AC2/SAC0 
PC^FLTADD 
AC1#$TMP6 
$AC1,$REG3 



;D0 THE MULTIPLY 
;SETUP TO MULTIPLY 



;D0 the MULTIPLY 



;GET RESULT OF B*B 
JADD THE RESULT 
;GET RESULT OF A*A 

;ADD THIS RESULT 
;SAVE FINAL RESULT 



000526 
000534 



4316 
4310 



NOW CHECK BOTH SIDES OF THE EQUATION 
CALCULATE THE NUMBER OF CORRECT BITS 
PUT LARGEST EXPONENT OF A**2 OR B**2 IN $AC2 
CMP SAC2,$AC3 
BGE IS 
MOV |A 
1$: SUB 



AC3/SAC2 
SAC1,SAC2 



;PRANCH IF SAC2 ALREADY HAS LARGEST 
jSACa WAS LARGER 
;N0H CALCULATE NUMBER 



FPBC DEC/Xll SYSTEM EXERCISER MODULE 
XFPBCO.Pll 12-0CT-78 11:59 



"4 
ni 

419 
420 
421 
422 
423 

ii 
HI 

429 
430 

m 

433 
434 

438 
439 

ni 

442 
443 

iU 

448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
456 
459 
460 
461 
462 
463 
464 
465 
466 
467 
466 



000554- 
000560' 

000600' 
000602' 
000606- 
0QQ614' 
000616- 
000624- 



o88||6' 
000640' 
000642- 



000642* 
000650' 

000652' 
000656' 
000660' 
000662' 



000662' 
000670' 

000672' 
000672' 
000700- 

000700- 

000704' 
000710' 



162767 
005467 
172467 
016767 

100002 

8S11I? 



001 
104405 



104420 
005062- 

004767 

ntiiY- 



104420 
005102' 



000024 004302 

004276 

004136 

004146 004260 

mm 004250 



iSli^? 004234 
000045 177262 

000000' 000000 



000000' 004732' 
002764 



000000' 004734' 
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SUB 
NEG 
LDF 
MOV 
JSR 
SUB 

BPL 
NEG 

2$: CMP 
BLE 
MOV 
HRDER 
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00744 
00750 



104403 000000' 005144' 
170127 000040 



urn 

004767 



«20./$AC2 
iAC2 

STMP4/AC0 
$REG2/$AC0 
PCrFLTSUB 
$REG3/$AC1 

pel 

#4S*ERRT¥P 
<RESULTS wrong: 



;0F correct pits WITHIN 2 

;MAKE RESULT POSITIVE 

JLGAD RESULT OF LEFT HAND SIDE 

JAND EXTENDED EXPONENT 

;SURTRACT TO SEE HOW CLOSE THEY ARE 

;GET DIFFERENCE IN EXT EXPONENTS 

;ACTUAL SXP'S ARE EQUAL TO 200 

;ENSURE RESULT IS POSITIVE 

;ANSWERS WITHIN ALLOWABLE NUMBER? 
;BRANCH if YES 
;FP result WRONG 



}**»*««*** ************** ******** 



************* 



**»**«!*** 



.IF B <> 

HRDERS^BEGIN^NULL ;RESULTS WRONG 

.IFF 

HRDER$, BEGIN, ;RESULTS WRONG 
.ENOC 

.*********************************************************** 

JSR PC/SFL20 ;CONVERT FIRST RESULT 

STMP4 

SFLBUF 

QTQA SREG2#S0BUFF jCONVERT EXTENDED EXPONENT 

• *#***«******%***********«********«***«****************« ft*** 

;CONVERT $REG2 TO ASCII A'^D 
;STORE AT SDEUFF 

0T0A$/BEGIN,$REG2,SDBUFF 

************************************************************ 

5SR PC/$FL20 >CCNVERT OTHER RESULT 

STMP6 

SSFLBUF 

OTOA SREG3,S$0BUFF 
I**************************** 



aT0A$,BEGIN,$REG3,S$08UFf 



********************* 
CONVERT SREG3 TO ASCII AND 
STORE AT S$OBUFF 



********* 



. ************************************************** 
MSGN SPl 

MSGNS, BEGIN, SPl ;ASCII MESSAGE CALL hlTH COMMON HEADER 
STARS 

***************************************************************** 



003776 
003776 

mm mm 

002550 

004106 004106 
003736 

003752 004072 



McT2s LDFPS 
;D0 A+B 

LDF 
LDF 
MOV 
MOV 
JSR 
STF 
MOV 

;N0W DO THE A-R 
LDF 
MOV 



»40 

$TMP0,AC1 
|TMP2/AC6 

|rego,saci 

SREGl-SACO 
PC#FLTADD 
AC1,AC2 
$AC1,$AC2 

STMPO^ACl 

|rego,$aci 



;INIT FPS 



;LOAD A OPERAND 
;LDAD B OPERAND 



;ADD THEM 
JSAVE IN AC2 
;AND EXT EXPONENT 

?LOAD OPERAND A 
jAND EXT EXPONENT 
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000756' 172467 



509 
510 



72402 

67 



imir- m 
mir- iiK, 

0010|4- 172500 

Imr- mm 
mlr- im 

m m 

ooffoi' 01 ell? 

001124- 004767 
001130* 174167 
001134- 016767 



nmr- 



001250- 1044 



003730 



26767 

02003 
16767 
66767 



00370 



166767 
100002 



HACYll 304(1052) 
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LDF < 
MOV I 
JSR 
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1° 

884oSi 

004004 
002364 



003772 003772 

003622 
003636 



mil 



003730 
002350 
003566 
003710 



004012 
004004 



003754 
003746 
003740 

003722 



003676 
003664 
000025 
003652 



mm 



>NOM DO (A+B)*(A-B) 
LDF AC2 



TMP2/AC0 
REGUSACO 
C^FLTSUB 



MOV 
JSR 
STF 
MOV 

;NOM DO THE B*B 
LDF 
MOV 
LDF 
MOV 
JSR 
STF 
MOV 

;HOa DO THE 
LDF 
MOV 
LDF 
MOV 
JSR 
MOV 

JHOH DO A**2 
LDF 
MOV 
JSR 
STF 
MOV 



A*A 



_ MPY 
AC2 
SAC2 



$AC2,SAC0 
PC,FLTMPY 
ACL$TMP4 
SAC1,$REG2 

§TMP2,AC0 

SREG1,SAC0 

XC0,AC1 

iikr 

STMPO^ACO 
SREGO^SACO 

SAC0,SAC1 
PC,FLfMPY 
|AC1^$AC3 

AC2,AC0 
$AC2,$AC0 
PC*FLTSUB 
AC1,STMP6 
$AC1,SREG3 
; RESOLTS 



;LOAD OPERAND B 

;SUBTRACT THEM 

JGET RESULT OF (A+B) 

;FORM THE PRODUCT 
;SAVE RESULT 
;AND EXT EXPONENT 

JLCAD OPERAND B 

;b qpbkano is in ACO 

;aND EXT EXPONENT 
;SAVE RESULT IN AC2 

;LOAD OPERAND ^ 

;PUT OPR A IN ACl 
;T0 PERF the SQUARE 
;EXECUTE THE MULTIPLY 
?SAVE EXT EXPO OF A*A 

;GET R*B 
|A«A IN ACl 

;SAVE IH MEMORY 



) 



003704 003704 



*NOW COHPtlTE! THE 

;CALCULAT.E_THE NUMBp'OF, CORRECT BITS 



881121 

003656 

003634 
003624 



003610 
176636 



2S: 



CMP 
BGE 
MOV 
SUB 
SUB 
NEG 
LDF 
MOV 
JSR 
SUB 

BPL 
NEG 
CMP 
BLE 
MOV 



|AC2/SAC3 

sic3/$AC2 
SACUSAC2 
|21.,SAC2 
|aC2 

$TMP4/AC0 
|rEG2/SAC0 
PC,FLTSUB 
$REG3,$AC1 



SACl 

iAC2*$ACl 
SECTS 

tf45,ERRTYP 



000000- 000000 



HRDER i <RESULTS WRONG> 
ij? B <> 

HRDER$, BEGIN/NULL 
.IFF 

HRDERS/BEGIN^ ^RESULTS HRONG 
.ENDC 



;determine which exp is larger 
;branch if ac2 larger 
;put largest in ac2 
?calcul no of correct bits 

;ALL0W 3 BIT ERROR 

;GET LEFT HAND SIDE 

JSUBTRACT TO SEE HOW CLOSE THEY 
;SUB EXT EXPONENTS 
JACTUAL EXPONENTS ARE EQUAL 
?MAKE SURE RESULT IS POSITIVE 

;RESULTS WITHIN RANGE ALLOWED? 
JBRINCH IF YES 
?FP RESULT WRONG 



JRESULTS WRONG 



»»********ftift«**ft****** ****************************** ******** 
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mm 

001266 
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004767 002360 



004716- 
004736' 



miir- 88«i?- 
mnr- 



8?ii?l- 



in mm 



001324' 

mm- 



104420 
005102' 

104403 



000000' 
000000* 



55 
_54* 

2* 
6' 



mm- 

mwr 
mm- 

001444- 
001446- 
001454- 



172467 
17 4067 
016767 

166767 
100002 

8Spi? 



001454- 10441 



"8^ 
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001266- 104420 000000' 004732' 
001274- 005062- 



003356 
003356 
'"3366 

m 

002054 
003332 

mm 

003320 

Mill 

003300 

mm 



004734- 
005144- 



003506 
003476 



003436 
003316 



003404 
176432 



000000- 000000 



00}J?0: 0047^6- 
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PC/$FL20 ^CONVERT FIRST RESULT 



JSR 
STMP4 
SFLBUF 

OTDA $REG2^S0BUFF JCONVERT FXTENDED EXPONENT 

.*********** *%************ ********************************** 
' JCONVERT SREG2 TO ASCII AND 

;STORE AT SOPUFF 

0T0A$/BEGIN/SREG2^S0BUFF 



****************** 
5S_R_, PC/$FL20 



STMP6 
SSFLBUF 
OTOA $R 
J ******** * 



*************************************** 
?CONVERT OTHER RESULT 



************************************** 
JCONVERT $REG3 TO ASCII AND 
JSTORE AT SSOBUFF 
OTOA$/ BEGIN, SREG3,$$0BUFF 



ft********** 



. ****************************** 
MSGN SPl 

MSGNS/BEGIN/SPI jASCII MESSAGE CALL WITH COMMON HEADER 



************* 



STARS 

..**«*ftft*«ft************«****** 
SlCT3: LDF 



1$: 



LDF 
MOV 
MOV 
JSR 
JSR 
STF 
MOV 
LDF 
STF 
MOV 
MOV 
JSR 
SUB 
BPL 
NEG 
CMP 
BLE 
MOV 



STMPO^ACl 
$TMP2/AC0 
$REG0,SAC1 
SREGlfSACO 
PCFLTDIV 
PC^FLTMPY 
AC1,$TMP4 
SAC1,SPEG2 
STMPOfACO 
AC0,STHP6 
SREGO^SACO 
|REG0,|REG3 
PC/FLTSUB 



SRBGO/SACl 

stci 

|22.<$AC1 
SECT4 
HUV #45/ERRTyP 
HRDER e <RESULTS HRONG> 

y *****&* *************** 



*4*«*ft******ft****«**ft**ft*****ft*ft*a 
JLOAD OPERAND A 

;and operand r 



;Gn divide them 

JMULTIPLY RESULT BY P 
JSAVE RESULT 

;LOAD OPERAND A 
;SAVE INCASE TYPE CUT 

JSUBTRACT RIGHT AND LEFT HAND SIDES 

JSFE IF RESULT OK 

JENSURE DIFFERANCE IS POSITIVE 

JRESULTS WITHIN 2 BITS? 
JPRANCH IF YES 
JFP RESULT WRONG 



*********** 



:**ftft****«r 

JRESULTS WRONG 



************ 



-IF B <> 

HRDERS/BEGIN,NULL 
-IFF 

HRDERS/BEGIN, JRESULTS WRONG 

t §*§£*************************************************** ******** 

5SR PC/$FL20 JCONVERT FIRST RESULT 

$TMP4 

SFLBUF 

OTOA $REG2/$0BUFF JCONVERT EXTENDED EXPONENT 
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MACYll 30A(1052) 
SINGLE PRECISION 
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583 
584 

ill 

587 



m 

595 

i 



6_- 
638 



001472' 104420 000000' 004732' 
001500' 005062' 

mr- pm- """" 

1510' 005002' 



00 

00^ 



001512' 104420 000000' 004734' 
001520' 005102' 



104403 000000' 005144' 



i mw: 

91 001530* 

m m 

1554' 170000 



001554' 1 
001556' 01 



fill: 



003154 
003154 

003146 

000045 176320 



001 



616 001566' 104405 000000' 000000 
617 

ill 000 



002302 



imr- mm- 



SoiliS' 104403 000000' 005214' 



001626' 17000 
0g|630: 12226: 



• *****4*«*»* ft ******* ft***************** *********** 

;CONVERT SREG? TO ASCII AND 
;STQRE AT $nflUFF 

0T0A$/BEGIN,$REG2#$0BUFF 

•A***************************************************** 

OSR PC,$FL20 ;CONVERT OTHER RESULT 

STMP6 
SSFLBUF 

OtOA $REG3,$$aB0FF 

* ********** ***»5 *********** ******************** ********* 
;CDNVERT SREG3 TO ASCII AND 
;sfORE AT SSQBUFP 
QT0AS^BEGIN/SREG3,S$0BUFF 

**************** ft* **************************** ********* 
MSGN SPl 

MSGNS, BEGIN, SPl ;ASCII MESSAGE CALL WITH COMMON HEADER 
STARS 
************* 

SECT4: SETD 
CLRD 
SBTF 

LDCDF STMP4£AC3 
STCFD AC3,$TMP6 
SETD 

CHPD $TMP6,AC3 
CFCC 

BEQ SECTS 
MOV #45,ERRTYP 
HRDER t 

•ft***************************************************** 
.IF B <> 

HRDER$,BEGIN/NULL ; 

HRDER$, BEGIN, ; 
.ENDC 

******************************************************* 

STD AC3,STMP0 ?GET CONTENTS OF AC3 

JSR PC,$FLD20 yCONVERT TO ASCIZ 

STMPO 

SFLBUF 

JSR PC,$FLD20 ;CONVERT $TMP6 TO ASCIZ 

STMP6 

SSFLBUF 

MSGN SP3 

MSGNS/BEGIN,SP3 ;ASCII MESSAGE CALL WITH COMMON HEADER 
STARS 

• • ************************************************************* 
SECTS! SETF 

LDCIF STMP4+2£AC2 ;LOAD NUMBER 



*ft*****ft*ft********»**ft«4**ftfttt**ft***************** 

AC3 

;CONVERT TO SGL PREC 
;BRING it BACK 

;ANSWERS OK? 



;branch if yes 
;fp result wrong 



34 061634' 125667 003064 STCFI AC2,STHP6+2 ;BRING IT BACK 

35 001640' 026767 003054 003056 CMP STMP4+2,$THP6+2 ;NUMBERS STILL THE SAME? 

36 001646' 001421 BEQ TST2 ;BRflNCH IF YES 



650' 012761 000045 176230 
656' 



BEQ 
MOV 
HRDER 



.ST2 

#45,ERRTYP 



;FP RESULT WRONG 
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001 
104405 



000000' 000000 



001664' 
001672' 



104420 
005062' 



001674' 104420 

001702' 005102' 

081784' 104403 
001712' 



001712 

Oi 

01 



004767 

m m 

1732' 016767 
754' 01671 



000000' 004720' 



0Q2442 
000340 
002760 
002764 
002770 

mm 
ill 

003052 



mm 

001350 



004724' 
005230' 



003110 
003100 



003064 
002732 
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SINGLE PRECISION 

* ************************* ****jt«;«*«*««««r*A*******ft***** 

.IF B 

HRDERS, BEGIN, NULL ; 
.IFF 

HRDERS, BEGIN, ; 
.ENDC 

• **************** *****»«»«* A* ******************* ********* 

OTOA 

• ***ft«**A 



STMP4+2,SOBUFF 
**************** 



********** 



*********** 



• • ***** 
.SBTTL 
TST2: 



;CDNVERT STMP4+2 TO ASCII hHD 
JSTORE «T SOBUFF 
OTOAS,BEGIN,$TMP4+2,SOBUFF 

******************************************************* 
OTQA STMP6+2,S$0BDF 

• ilr******** *«***%*****************************«*»** ***** 

?CONVERT $TMP6+2 TO ASCII AND 
5ST — 

OTOA$, BEGIN, $TMP6-»-2,$$0BUF 

• *********** 
MSGN SP4 
MSGNS, BEGIN, SP4 
STARS 

********************* 
DOUBLE PRECISION 
JSR PC,FLTDBL 
LDFPS #340 

STMPO, ACl 

|tmp4,aco 

|REG0,§AC1 
$REG1,SAC0 
PC*FLTADD 
AC1,AC0 
SACli-SACO 
PC^FLTMPY 
ACl#FLTMP0 
$AC1,$REG2 



***************************************** 

ASCII MESSAGE CALL WITH COMMON HEADER 
******************************** 



LOD 
LOD 
MOV 
MOV 
JSR 
STD 
MOV 
JSR 
STD 
MOV 



?GET RANDOM OPERANDS 
;INIT FPS 

;load a operand 
;loid b operand 
;setup extended 
;exponents 
jperform the add 
;setup aco tc 
yperform the square 
;d0 the multiply 
jsavr result 
jand software exp 



;N0W DO 
;D0 THE 



THE RIGHT HAND SIDE OF THE EQUATION 
A*A FIRST 



;NOH DO 



MOV 
LOD 
MOV 
LDO 
JSR 
STD 
MOV 

THE B*B 

LDD 

LOD 

MOV 

MOV 

JSR 

STD 



SREG0,SAC0 

stmpo, aco 
saco,|aci 

AC0,AC1 
PC,FLTMPY 
ACl,AC2 
$AC1,SAC2 



$TMP4,AC0 
ACO,ACl 
SREGl<$ACl 
$AC0,|AC1 
PC^FLTMPY 
AC1,AC3 



ACO 



;GET EXT EXPONENT 
JLOAD OPERAND A 
;SET OPERAND B EXT EXPONENT 
JLOAD B OPERAND 
)EXECUTE THE MULTIPLY 
;SAVE RESULT 



;LOAD B OPERAND 
;AND EXT EXPONENT 



;D0 THE MULTIPLY 
;SAVE THE RESULT 
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695 002066" 016767 002756 002760 



004716' 



4U UVi/i 

24' 1724 

k- ml 



mm 

- 000002 
67 001272 



J|gl 0|6767 002706 002676 



J m 

66* 004767 

t- lim 



Mm 



im mil 

^62767 000064 

$05467 QQ2610 

lil W¥ 

66767 OoiIsS 
00002 

mti mm 
m 



001 

-OS 



002312' 

002312- 10445S 

000 



miW- 88II!J' """^ 



000000- 000000 



MACYll 30A(1052) 

DOUBLE PRECISION 
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mwo 



002666 002660 
1312 



002642 002642 



mir2 



002572 
002562 



002546 
000045 175574 



$&C1^SAC3 



;HOW DO THE 2*B*A 

LDD 
MOV 
MOV 
JSR 
LDD 
MOV 
JSR 



#STMP4|.R1 
(R1),AC0 
-{R{},AC1 

PC^FLTMPY 
#-040000, ACO 



MPY 

;mom sum the results 

MOV |A|3jgAC0 



LDD 
JSR 
LDD 
MOV 
JSR 
STD 
MOV 



AC3£AC0 
PC,FLTADD 
ACJjrACO 
$AC2/iAC0 
PCfFLTADD 
AC1,FLTMP1 
$AC1/SREG3 



;LOAD THE B OPERAHD 
jLOAD THE A OPERAND 
;AND THE EXT EXPONENTS 

;D0 THE MULTIPLY 

; SETUP TO MULTIPLY BY TWO 

;D0 THE MULTIPLY 



jget result of b*b 
;aod the result 
;get result of a*a 

JADD THIS result 
;SAVE FINAL RESULT 



;HOH CHECK BOTH SIDES OF THE EQUATION 
JCALCULATE THE NUMBER OF CORRECT BITS 
;PUT LARGEST EXPONENT OF A**2 OR B**2 IN $AC2 



1$: 



2$: 



CMP 

bge 

MOV 

SUB 
SUB 
NEG 
LDD 
MOV 
JSR 
SUB 

BPL 
NEG 
CMP 
BLE 
MOV 



|AC2,$AC3 

slc3,SAC2 
SAC1,|aC2 
|52.,SAC2 
IaC2 

FLTMP0,AC0 

$reg2,|aco 

PC,FLfSUB 
$R1G3,$AC1 



x*Cl 



;BRANCH if SAC2 ALREADY HAS LARGEST 

;SAC3 MAS LARGER 

;NOW CALCULATE NUMBER 

;0F CORRECT PITS WITHIN 2 

;MAKE RESULT POSITIVE 

;L0AD RESULT OF LEFT HAND SIDE 

;AND EXTENDED EXPONENT 

>SUBTRACT TO SEE HOM CLOSE THEY ARE 

?GET DIFFERENCE IN EXT EXPONENTS 

>ACTUAL EXP-S ARE EQUAL TO 200 

>ENSURE RESULT IS POSITIVE 



ACl 
!TYP 



;RESULTS WRONG 



;ANSWERS WITHIN ALLOWABLE NUMBER 
;BRANCH IF YES 

„._^_, ;FP RESULT WRONG 

HRDER , <RE§ULTS WR0MG> 

.IF B O 

HRDERS, BEGIN, NULL 
. IFF 

HRDER$, BEGIN/ ;RESULTS WRONG 
■ ENDC 

JSR PC,$FLD20 ;CONVERT RESULT 1 TO ASCII 

FLIMPO 

SFLBUF 

OTOA SREG2,S0BUFF 

;CONVRRT $REG2 TO ASCII AND 



******** 



******** 
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mm- mm- 

1552 



MACYll 3 
DOUBLE P 



0A(1052) 
RECISION 



?ii mtr- mm- ""^ 

757 002346- 005002' 
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JSTORE AT SOBOFF 



000000' 004734- 



65 002360- 

" lolllE' 000000- 005170- 

002366' 170127 000340 

mm: mm mu 

mm mm 

001062 

002420 002420 




. . ****** 
SECT2D: 
JDO A+B 



0T0A$,BEGIN,$REG2,$0BUFF 
.******************************************************* 
5SR PC,SFLD20 ;C0NVERT RESULT 2 TO ASCII 

FLTMPl 
SSFLBUF 

.*******l*«**ill*l ************************** *********** 
' ;CDNVERT $REG3 TO ASCII AND 

JSTORK AT $$OBUFF 
aT0AS#BEGIN,SREG3,$$0BUFF 

.*****»****«****«************************************** 

6^rN SP2 

MSGN|/BEGIN,SP2 ;ASCII MESSAGE CALL WITH COMMON HEADER 
III*!****** 
LDFPS #340 



«*«***«** 



******** 



*************** ft* ******* *********i 



************** 



111 



;N0W DO 



002404 
002370 



LDD 
LDD 
MOV 
MOV 
JSR 
STD 
MOV 

THE A-B 
LDD 
MOV 
LDD 
MOV 
JSR 



STMPO/ACl 

STMP4/AC0 

SREGO/SACl 

SREGlSSACO 

PC^FLTADD 

AC1,AC2 

$ACl/$AC2 



STMPO/ACl 
SREGO 
STMP4 



REGO/SACl 



nil 



002354 
002222 



88iP-jpf6? mm 002324 




2316 002316 
0676 



002304 002304 



mi m 

ioi 002602- 172402 



;now do {a+b)*(a-b 

LDD 
MOV 
JSR 
STD 
MOV 

JNOW DO THE B*B 
LDD 
MOV 
LDD 
MOV 
JSR 
STD 
MOV 

JNOW DO THE A*A 
LDD 
MOV 
LDD 

002260 MOV 
JSR 

002252 MOV 

;HOH DO S**2-B**5 ^ 

LDD AC2/AC0 



;TMP4,AC0 

;regi;saco 

iCO#ACl 
SACO/SACl 
PCFLTMPY 
AC1*AC2 
$ACl/$AC2 

STMPO/ACO 
SREGO/SACO 
ACO^ACl 
SACO/SACl 
PC^FLTMPy 
SAC1,$AC3 



;L0AD a OPERAND 
;LOAD B OPERAND 

;ADD THEM 
;SAVE IN AC2 
;AND EXT EXPONENT 

;load operand a 
jand ext exponent 
;load operand b 

;subtract them 

jget result of (a-»-p) 

>form the product 
;save result 
>and ext exponent 

;L0A0 OPERAND B 

;B OPERAHD IS IN ACO 
;AND EXT EXPONENT 

JSAVE RESULT IN AC2 
;L0AD OPERAND A 



JEXECUTE THE MULTIPLY 
;SAVE EXT EXPO OF A*A 

;GET B*B 



) 
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809 

m 
m 
m 
m 



852 
853 
854 
855 
856 

pa 

859 



002604' 
0026}-" 

m 



' 016767 OO; 

: im E 

02640' 01676 
0266|' 01 

mi' Imii nwi 

02704' 166767 002024 

I M'-H mil 



m 
ill 

m 

844 

h 



QQ2242 002234 
002104 
002216 002216 



002736' 

001 

002736' 104405 



002744' 
002750' 
002752' 
002754' 



004767 001146 

005124' 

004736' 



nmr- 

4' 
0' 



in mw 

50 002774' 



104420 
005062' 

004767^ 

ooiJil' 



MACYll 30A(1052) 
DOUBLE PRECISION 

MOV 
JSR 
STD 
MOV 

J NOW COMPUTE THE . 
CALCULATE THE NUMBgR 
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002146 
002136 



002122 
000045 175150 



000000- 000000 



000000' 004732' 



002774' 104420 000000' 004734' 
003002' 005102' 

OoiSoJ' 104403 000000' 005170' 
003012- 

003012' 172567 001670 



$AC2/$AC0 

pc,fltsub 
acLflthpi 

SAC1,$RRG3 
RESULTS 



?A*A IN ACl 
;SAVE IV MEMORY 



1$: 



2$: 



CMP 
BGE 
MOV 
SUB 
SUB 
HEG 
LDD 
MOV 
JSR 
SUB 

BPL 
NEG 
CMP 
BLE 
MOV 



AC2/SAC3 



OF CORRECT BITS 



SAC 2 
|AC2 
|aC2 



|AC3,S 
SAC1,| 
#53.;$ 
|aC2 
FLTMP0#AC0 
SREG2#|AC0 
PC|-FLTSUB 
$REG3,$AC1 

|AC2>rSACl 
SRCT3D 
#45,EPRTYP 



HRDER , <RESULTS WRONG> 
J********************************* 

;results wrong 



JDETEHMINE WHICH EXP IS LARGER 
;BRANCH if AC2 LARGER 
;PUT LARGEST IN AC2 



;GET LEFT HAND SIDE 

;SUBTRACT TO SEE HGW CLOSE THEY 
;SUB EXT EXPONENTS 
;ACTUAL EXPONENTS ARE EQUAL 
;MAKE SURE RESULT IS POSITIVE 

;RESULTS WITHIN RANGE ALLOWED? 
;BRANCH IF YES 
;FP RESULT WRONG 



llF B 

HRDER$, BEGIN, NULL 
.IFF 

HRDERS/BEGINr ;RESULTS WRONG 
ENDC 

JSR PC,$FLD20 JCOMVERT RESULT 1 TO ASCII 

FLTMPO 

SFLBUF 

OTOA SREG2,S0BDFF 

' ;CONVERT SREG2 TO ASCII AND 

;STORE AT $OBUFF 

OTOAS, BEGIN, SREG2,$0BUFF 

jfs**** ********* *ic**#*it*«**ik* ******** ********it****1t**ii-k1t 

JSR PC,$FLD20 JCONVERT RESULT 2 TO ASCII 

FLTMPl 



SSFLBUF 
OTQA $REG3,$$0BUFF 
1************^1******* 



********************************** 
CONVERT $REG3 TO ASCII AND 



OTOA$, BEGIN, $REG3,SS0BUF^ 



STORE AT $SOBUFF 



*********** 



^******************************** 
MSGN SP2 

MSGN$, BEGIN, SP2 ;ASCII MESSAGE CALL WITH COMMON HEADER 



ilcT3D: LDD 



**************** 
$TMP0,AC1 



r**************** 

;LOAD OPERAND A 
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002020 
002010 




003142' 104 



m umr-m 



001750 
001630 



MACYll 30A(1052> 
DOUBLE PRECISION 

LDD 
MOV 
MOV 
JSR 
JSR 
STD 
MOV 
LDD 
STD 
MOV 
MOV 
JSR 
SUB 
BPL 
NEG 

1$: CMP 

RLE 
MOV 
HRDER 



12-aCT-78 16:36 PAC^: 18 



000000' 000000 



003160' 104420 000000' 004732' 

003166' 005062' 

003170' 004767 000722 

003174' 005134' 



003200' 104420 000000' 004734' 
003206' 005102' 

88iii8' 104403 000000' 005170' 
003216' 

503221' J72767 001464 



001462 



STMP4,AC0 
$REG0,$AC1 
$REG1,SAC0 
PCFLTDIV 
PC^FLTMPY 
ACl, FLTMPO 
SAC1,SREG2 
$TMPO,AC0 
AC0,FLTMP1 
$REG0,SAC0 
SREG0,SREG3 
PC,FLTSUB 
|REG0,$AC1 

sici 



;AND OPERAND 



;G0 DIVIDE THEM 
;MULTIPLY RESULT BY B 
;SAVE RESULT 

JLOAD OPERAND A 
;SAVE INCASE TYPE OUT 



^SUBTRACT RIGHT AND LEFT HAND S 

;SEE IF RESULT OK 

;ENSURE DIFFERANCE IS POSITIVE 



i54.,SACl 
T4D 



;RESULTS WITHIN 
>BRANCH IF YES 
;FP RESULT WRONG 



**************** 



2 BITS? 

_ECT4: 
»45,ERRTYP 
* <RESULTS WRONG> 
***************************** 

hJdER$^BEGIN,NULL JRESULTS WRONG 

HRDERS, BEGIN, ;RESULTS WRONG 

• ENDC 

******************************************************* 
JSR PC,$PLD20 ;CONVERT RESULT 1 TO ASCII 

FLTMPO 
SFLBUF 

OTOA SREG2,S0BUFF 

• »«**********♦* ************************* ft ************** 

;CONVERT $REG2 TO ASCII AND 
;STORR AT SOBUFF 

0T0A$,REGIN,$REG2,S0BUFF 



isR 

FLTMPl 
||FLBUF 



k************************************ 

PC,$FLD20 ;CCNVERT RESULT 7 TC ASCII 



******* 



tOA $REG3,$S0ByFF 
******************** 



*«*********«*****4**************4 

;CCNVERT SREG3 TO ASCII AND 



0T0A$,BEGIN,$REG3,$$0BUFf 



STORE AT SSnPUFF 



******************************************************* 
MSGN SP2 

MSGMS, BEGIN, SP2 ;ASCTI MESSAGE CALL WITH COMMON HEADER 

fTARs 
****************************************************** 

§6CT4D: LDCFD $TMP4,AC3 ;CHECK CONVERT 

STCDF AC3,STMP6 ;BRING DATA PACK 

LD^^ STMP4,AC3 JRELOAD 1ST NUMBER 

* $TMP6,AC3 



CMPF 
CFCC 



;NUMBERS THE SAME? 



rPBC OEC/Xll SYSTEM EX 
XFPBC0»P11 12-0CT-7 



ERCrSER MODULE 
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919 
920 



003252' 



001421 
012767 



001 
104405 



000045 174634 
000000- 000000 



000 
004767 

004767 

mm- 

104403 000000' 005244' 



000356 
000346 



946 
947 



003340' 
003f - 



mm 
Mn 

001 
104405 

000 



00140 



001362 001364 
000045 174536 



000000' 000000 



003356' 
003364' 



10442Q 
005062' 



000000' 004716' 



104420 
005072' 



000000' 004720' 



003376' 104420 000000' 004722' 



SECT5D 
#45,ERRTYP 



;BRANCH IF YES 
;FP RESULT WRONG 



MUCYll 30A(1052) 
DOUBLE PRECISION 

BEQ 
MOV 

il¥ B <> 
HRDER$, BEGIN, NULL ; 
.IFF 

HRDERS#BEGIN, ; 
•KNDC 

JSR PC/$FL20 ;CQNVERT 1ST NO TO ASCIZ 

STMP4 

SFLBUF 

JSR PC,$FL20 ^CONVERT 2ND NO TO SSCIZ 

$TMP6 

SSFLBUF 

MSGH SP5 

MSGN$/BEGIN,SP5 ;ASCTI MESSAGE CALL WITH COMMON HEADER 
STARS 

SECT5D: SETD 

STMP4£AC2 ;CHECK INTEGER CONV 

AC2#STMP6 ;BRING IT BACK 

STMP4,STMP6 ;FIRST WORDS OK? 

Is ;branch if yes 



) 



lr**«*«*********** ************* 



LDCLD 
STCDL 
CMP 
BEQ 
BR 

IS: CMP 
BEQ 

2$: MOV 

y*ss**(* ************** 

.IF B <> 

HRDER$, BEGIN, NULL 
.IFF 

HRDERS, BEGIN, ; 
.ENDC 

• ********** 



StMP4+2,$TMP6+2 ;2ND WORDS OK? 
END ;BRANCH IF YES 

#45,ERRTYP ;FP RESULT WRONG 



***************************************** 



********************************************* ******** 



6t0A STMP4,$0BUFF 
. *******%****%#*****«*** 



******************************* ********* 

;CONVERT $TMP4 TO ASCII AND 
;STORE AT SOBUFF 

OTOAS, BEGIN, STMP4,$0BUFF 

***************************************** 

STHP4+2,$DBUF1 

*******(************************************************ 

;CONVERT $TMP4+2 TO ASCII AND 
;STORS AT SOBUFI 
OTOAS, BEGIN, STMP 4+2, SOBUFl 



***************** 

OTDA 
• ***** 



*************************************************************** 
OTOA STMP6,$$0BUF 

**************************************************************** 

;CONVERT $TMP6 TO ASCII AND 



******** 



OTOAS, BEGIN, $TMP6,$$0BUF 



;STORE AT SSOBUF 
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003404' 005102' 

003406' 



000000* 
000000' 
174570 



MACYll 30A(1052) 
DOUBLE PRECISION 
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003JJS 



001406 001406 



100400 
001044 



. ************************************************************** 
OTOA §TMP6+2,$S0BU1 

. *********** **55t **************************************** ******** 
;CCNVERT $TMP6+2 TO ASCII AND 
JSTOHE AT SSOBUl 

OTOAS, BEGIN, $TMP6+2,S$0BU1 

* ***************** ********** ****** ******************* *********** 
MSGN SP6 

MSGNS, BEGIN, SP6 ?ASCII MESSAGE CALL WITH COMMON HEADER 
ENDITS, BEGIN 
JMP LOOP 



JSIGNAL END OF ITERATION. 
JMOHITOR SHALL TEST END OF PASS 



******* 
;SBTTL 

Rtmpy: 



STARS 
******* 



********************** 



***************************** 



FLOATING POINT MULTIPLY ROUTINE 

THIS ROUTINE MULTIPLIES THE CONTENTS OF ACO AND ACl 
AND LEAVES THE RESULT IN SCI. IT ALSO TAKES CARE OF 
THE SOFTWARE EXPONENTS THAT ARE KEPT IN SACO AND SACl. 
STARS 

^^^-^^""^^ ************ *************************************** 
}ADD SOFTWARE EXPONENTS 
?D0 THE MULTIPLY 
;PUT CONTROL WORD ON STACK 

;calculate ext exponent 
;return 



ADD 

MULF 

MOV 

JSR 

RTS 



SACO, SACl 
ACOeACl 
#100400,-(SP) 
PCEXPEXT 



PC 



• ***« 
SBTTL 



••*«** 
FLTDIV 



STARS 

t**** *********************************************** ********* 
FLOATING POINT DIVIDE ROUTINE 

THIS ROUTINE DIVIDES THE CONTENTS OF ACl BY ACO 

AND LEAVES THE RESULT IN ACl. 

STARS 

r****ft***ft ******** ft* ********** ******************************* 



is: 



SUB 

DIVF 

MOV 

JSR 

RTS 



SACO, SACl 
XC0,AC1 

PC 



JADJUST SOFTWARE EXPONENTS 

;EXECUTE THE DIVIDE 

JPUT COMTROL WORD ON STACK 

^CALCULATE EXT EXPONENT 

;RETURN 



Sbttl 



********* 



FLOATING POINT ADD ROUTINE 

THIS ROUTINE ADDS THE CONTENTS OF ACO TO ACl. 
THIS CAN ONLY BE DONE IF THE SOFTWARE EXPONENTS 
ARE CLOSE ENOUGH TOGETHER SUCH THAT AN ADJUSTMENT 
OF THE REAL EXPONENT LEAVES A NON-ZERO NUMBER. 
STARS 

. . ********************************************************* 
FLTSUB: MOV SP,SUBFLG ;SET SUBTRACT FLAG 

FLTADD: CMP SACO, SACl ;CHECK SOFTWARE EXPONENTS 

BGT 2S 

BEQ 4$ 



***** *** 



') 
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003516' 01670 
033 003522*' 16670 



ill 



8?i 



I. 
Ill 

082 
083 

m 

086 



m iim 




550' 0167 

m- mi 

03600' 00040; 




003602' 176527 177703 

m: pp "000. 

060 oorr ' 

2y2§P' 005067 000002 

066 003642' 

067 

068 

8^8 

021 
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; ACCUMULATOR 1 
MOV 
SUB 
CMP 

BGE 

NEG 
LDEXP 

1$: LDEXP 
BR 



IS LARGER THAN ACCUMULATOR 



R2 

R2,AC0 
4$ 

|-75,AC0 



;GET OPERAND B SOFTWARE EXP 
;GET difference in software EXP'S 

>EXP WITHIN DBL PREC RANGE? 
;BRANCH IF ADD NOT REQUIRED 
;RBSULT is OPERAND F 

?RFLOAD THE EXPONENT 

;FAKE EXPONENT SO HARDWARE 
;WILL DETECT OUT OF RANGE 



5ACC0MULAT0R IS LARGER THAN ACCUMULATOR 1 



5$: 



MOV 
SUB 
MOV 
CMP 
BGE 
NEG 
LDEXP 
BR 



AC0,R2 ;G£T SOFTWARE EXP OF OPERAND 
"2 /GET DIFFERENCE IN EXP'S 
ACl JMAKE SOFTWARE EXP'S 

;EXP WITHIN DBL PREC RANGE? 



ACl 

Aco;s 

2/#57 



h 

R2,AC1 
4$ 



;BRANCH IF NO 
;RELOAD THE EXPONENT 



;ACCUM0LAT0R is much larger THAN ACCUMULATOR 1 SO RESULT IS 



LDEXP #-75, ACl 



4$: 



ill 



;FAKE EXPONENT SO HARDWARE 
-WILL DETECT OUT OF RANGE 
ADD OR SUBTRACT? 
BRANCH IF ADD 



TST SUBFLG 

BEQ 5S 

SUBF AC0,AC1 

BR 6$ 

ADDF ACO-ACl 

MOV #10D400/--(SP) 

JSR PC^EXPEXT 

CLR SUBFLG 

RTS PC 
.WORD 
STARS 

************************** A ******** 

CONVERT FLOATING BINARY TO OCTAL ASCIZ 



/execute the add 
;p0t control word on stack 
^calculate ext exponent 
jikit subtract flag 
;return 



***************** 



W XXX YYY ZZZZZZ 



SIGN BIT 

8-BIT EXPONENT (RIGHT JUSTIFIED 
EBACTIQN BITS <S7:51> (RIGHT JU; 



Z = FRACTION BITS <50:35> 



^TIFI 



£D) 



fTHE ROUTINE IS CALLED AS FOLLOWS 
PC,$FL20 



JSR 

NUMBER 
BUFFER 
STARS 

********************************* 



;ADDRESS OF NUMBER TO CONVERT 
JADDRESS OF PUFFER FOR ASCIZ 



************* 



t******** ******** 
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087 
088 
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$FL20: 



3$: 



• • ***** 
-SBTTL 



|(SP|^R0 

2pi)-Rl 

iRO),RO 
(Sp5#R4 
1#R3 
#"67, R3 
|60,R3 
«3/:-(R4) 

ii i " 

Rl£R3 
tf-ClirRS 
|60,R3 
R3#-(R4) 
#48, -(R4) 

ri;r3 

#''C7irR3 
i60,R3 
«3<-(R4) 

ft5,5S 
R1,R3 
#-Cl/R3 
|60,R3 
R3ir-(R4) 

i2/R5 
R1,R3 
ff-C7,R3 

ii 5 ' 

Rli-R3 
#*C3/R3 

860, RO 
R0,-(R4) 
PC 

*************************************************** 
FLOATING DOUBLE BINARY TO OCTAL ASCIZ 



;GET ADDRESS OF DATA 
;ADJUST RETURN PC 
;PUT SECOND DATA WORD IN Rl 
;PUT FIRST DATA WORD IN RO 
;GET ADDR OF BUFFER 

>ADJUST TO END OF BUFFER 

JPOT TERMINATOR IN BUFFER 

;SET SOB COUNT FOR FRACTION DIGITS 

;GET LSB'S OF FRACTION 

;SAVE LS 3 BITS 

;MIKE THEM ASCII 

;STORE IN BUFFER 

?SHIFT NUMBER TO NEXT 3 BITS 

;CONTINUE FOR 7 DIGITS 

;GET NEXT DIGITS 

;OWLY WANT 1 BIT 

;MAKE THEM ASCII 

;STORE IN BUFFER 

JPUT SPACE IN BUFFER 

;SET SOB COUNT 
;GET LOW WORD 
;MASK 3 BITS 
?MAKE THEM ASCII 
;PUT IN BUFFER 
)GET NEXT 3 BITS 
;CONVERT THEM 

;ONLY WANT 1 BIT 
;MAKE IT ASCII 
;PUT IN BUFFER 
;PUT SPACE IN PUFFER 

;GET FIRST 3 BITS OF EXPONENT 
;SET SOB COUNT FOR 2 DIGITS 
;GET LSB'S OF EXPONENT 
;SAVE 3 BITS 
?MAKE THEM ASCII 
;STOHE IN BUFFER 
;GET NEXT 3 BITS 
;CCNTINUE 

?GET LAST 2 BITS OF EXPONENT 
;MAKB SURE ONLY 2 BITS 

;make them ASCII 

;STOR£ IN BUFFER 
5pUT SPACE IN BUFFER 

;GET sign BIT (IT WAS EXTENDED) 

;MAKE IT ASCII 

JPUT IT IN THE BUFFER 
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004116' 

o84lio' 

004|36; 

004144- 
004146' 

mm- 



8o4163' 
004170' 
Q4I74' 



017667 

004767 
QQOQQO 



016'. 
0627 



240' 
244' 



8 02 

Mi 

oipp 

062705 

imh 



01030^ 
04270§ 
062705 



004204' 

mm- 

004216' 

mV' 

004230' 077411 
0042*" -■ 
0042 

004246' 
004252' 
004256' 



077126 
000207 



177770 
000060 



000060 
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CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 

*THIS ROUTINE CONVERTS A 64 BIT FLOATING NOHBER TO AN OCTAL 
*ASCIZ STRING IN THE FOLLOWING FORMAT: 

* U VVV WWW XXXXXX YYYYYY ZZZZZZ 



000000 000016 

mm 000006 

177500 
177772 

88883? 

177752 
000004 



000002 
000005 



= SIGN BIT 

= 8-BIT EXPONENT (RIGHT JUSTIFIED) 

= FRACTION BITS<57:51> (RIGHT JUSTIFIED) 

= FRACTION BITS <50:35> 

= FRACTION BITS <34:19> 

= FRACTION BITS <18:03> 



*THE ROUTINE IS CALLED AS FOLLOWS : 



PC,SFLD2D 




JADDRESS OF NUMBER TO CONVERT 
;ADORESS OF BUFFER FOR ASCIZ 



**************************************************** 



;get address of data to convert 
;aejust return pc 

;GET ADDR OF BUFFER 
;CONVERT MS 32 BITS 



;PUT ADR OF BUFFER IN RO 

;ADJUST TO END OF BUFFER 
;PUT TERMINATOR IN BUFFER 
;GET ADDRESS OF DATA TO CONVERT 
;ADJUST TO LOWER 32 BITS 
JSAVE THE DATA 

jSET LOOP COUNT 

5SET LOOP COUNT 

;GET LS 32 BITS OF DATA 

;MASK 3 BITS 

;MAKE THEM ASCII 

;PUT IN BUFFER 

;GET NEXT 3 BITS 

;CONTINUE 

;GET LS 32 BITS 

;ONLY WANT 1 BIT 

;MAKE IT ASCII 

;PUT IN TABLE 

;PUT SPACE IN TABLE 

;CONVRRT NEXT 16 BITS 



_/R4 

35r5 

-C7£R5 

60, R5 
t5<-(R0) 
t-3,R2 
'4,4$ 
k3/R5 
#-61, R5 

U3$ 
PC 



**««*************«&*****«*«**«**********«**************«**«**** 
.SBTTL RANDOM NUMBER GENERATOR ROUTINE 

;*THIS ROUTINE IS A DOUBLE PRECISICN PSEUDQ RANDOM NUMBER GENERATOR 
;*WITH A RANGE OF TO 2(+33)-l. 
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004262 
"04264 
-0426' 

88til: 

g04300 

00 
00 . 
004 

Bm 

004326 
004332 
004334 

604356 
004360 



004360' 012767 000002 

004366' 016700 000124 

mm- mm ^Iw 

004402' 004767 177654 
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««?r- Will 

14' 022761 



004414' 

mv- 

0044|j; g4|70 
S04I4P' 001761 

m- mm mm 



JSR PC,$RAND 

RETURN 



1$: 



000002 000074 
100000 



129 



Htdbl 

FLTSGL 

m 



3$: 

4$: 



;;CALL THE ROUTINE 
;;RETURN HERE THE RANDOM 
;;NUMBER WILL BE IN 
;;SHINUM/$LONUH 

MOV 
MOV 
MO? 
MOV 
MOV 
MOV 
ASL 
ROL 
INC 
BNE 

add 

ADC 
ADD 
ADD 
ADC 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

*fl**i««««*ft***** ft* ******** ************** 

FLOATING POINT NUMBER GENERATOR 

THIS ROUTINE GENERATES TWO RANDOM FLOATING POINT NUMBERS 
IN EITHER SINGLE OR DOUBLE PRECISION. FOR SINGLE PRECISION 
THE NUMBERS ARE STORED IN STMPO AND STMP2. DOUBLE PRECISION 
NUMBERS ARE STORED IN STMPO AND $TMP4. 

IN EITHER SINGLE OR DOUBLE THE EXTENDED EXPONENT IS STORED 
IN^SREGO AND SREGl. 

************************************************************* 




;;SET RO WITH LOW 
;;SET Rl WITH HIGH 

;>set shift count 
;;shift ro left and 
5;r0tate carry into rl and 
;;check for done 
;;continue shift loop 
;;add number to make x 
;;propogate carry 
;;add number to make x 129 
;;add low constant 
;;propogate carry 

;;ADD HIGH CONSTANT 
;;SAVB RO 
;;SAVE Rl 



?;return 



***************** *** 



MOV 
MOV 
MOV 
MOV 
JSR 
CMP 
BBQ 
CMP 
BEQ 
MOV 
BIC 
CMP 
BEQ 
MOV 
MOV 



P^SOBDBL 
SOBDBWRO 

pc;srand 

|2,S0BDBL 

!SlNUM,R3 
177, R3 
BITl5,R3 

sSlNUM,(R2)-»- 
$L0NUM,(R2)+ 



;SET LOOP FOR 2, FOUR WORD NUMBERS 

?SET WORD LENGTH LOOP 

;GET ADDRESS TO STORE WORDS IN 

;SET NUMBER CF WORDS TO 2 

;GET RANDOM NUMBER 

;FIRST TIME? 

;BRANCH IF YES 

JDOUBLE PRECISION? 

JBRANCH IF YES 

;GET EXPONENT PART 

?CHECK FOR MINUS ZERO 

;BRANCH IF MINUS ZERO 
;SAVE HINUM 
;SAVE LONUM 
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FLOATING POINT NUMBER GENERATOR 



m Im 

!S8 00446: 





55! 



SBTTL 



SOB 
SOB 
MOV 
MOV 
CMP 
BNE 
MOV 
JSR 
MOV 
RfS 
-MORD 
STARS 

k«***5*«ft *************************************************** 
FLOATING POINT EXPONENT EXTENSION 

THIS ROUTINE CONVERTS THE ACTUAL EXPONENT OF A FLOATING POINT 
NUMBER INTO AN ACTUAL EXPONENT OF 200 AND AN EXTENDED 
lcfu!!E'^ixf3yilj,Tg„XH|JIFFERANCE bItSeEN THE ORIGINaE 



rJ'II 

nMPo,-(sp) 

.0024-(SP) 
J/SOBDBL 

|1^S0BDBL 



;continue 

JCONTINUE for DOUBLE PREC 
^ESI ADDRESS OF NUMBER ON STACK 
?PUT CONTROL WORD ON STACK 
;D0UBLE PREC? 

;brancii if no 
;change control word 
jcalculate ext exponents 

;ISIT SOBDBL FOR SINGLE PREC 
;RETURN 



»00. 



S9£ ?9"IPI„Ss„entered with a control word on the stack. 

IL*§iJH15P?SlSS IN An ACCUMULATORrBlfs <9:8> INofcATE 
THE^ACCUMULATOR number, if the NUwgERts) IS IN MEMORY, 
Bpl <l:0> r^^l^m 181 SSS8ER^gF^pN|Ei^„T0„C0NVERT Ub 



fiSS "MPER. IF THE NUHBER(S) IS IN MEMORY 
IMDICATE THE NUNBER OF NUNfiEfiS TO CONVERT 
INDICATE THE WORD LENGTH OF THE NUMBER(S). 
^9olP,.SSP•9^^A„!^l^^0^1^ conversion, the ADDRESS OF tH 
fiP?oS?ieL'Soig?y'" °' '^^^ (PRECEDING 



EXPEXTJ 



1$: 



stars 

««««««««« 



MOV 
MOV 
BMI 
MOV 
SUB 
MOV 
SUB 
NE6 
ASR 
ADD 
MOV 
BIC 
ASH 
SUB 
MOV 
BIC 
BIS 
SUB 
BMI 
MOVB 
ASL 
ADD 
ADD 



HE 



#|REG0|R2 

}iyi77,R3 

f-7,R3 

f205«R3 

R3,(R2) 

#77600,(R1) 

|bIT14S(R1) 

|400,R0 

rLr3 
R3 

R3,R1 
|2/R2 



; ACCUMULATOR CONVERSION 



;SAVE RETURN PC 
;GET CONTROL WORD 
;BRANCH if ACC CONVERSION 
;GET start ADDRESS 

;GET OFFSET FROM $TMP0 



;GEN ADDRESS OF EXT WORD 
;GET DATA 

;get exponent 

jright justify exponent 

;convsrt to 2's compliment 

;AD0 to EXTENDED EXPONENT 
;NAKE ACTUAL 

;exponemt 200 
;any more words? 
jbranch if no 

;GET word LENGTH 

;SELECT NEXT NUMBER ADDRESS 
;SELECT NEXT EXTENDED ADDRESS 
;CONTINUE 



FPBC DEC/Xll SYSTEM EXERCISER MODULE 
XFPBCO.Pll 12-0Cf-78 11:59 

004624' 072027 177776 
004610' 042700 177477 
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Ulllh 




000004 



2$: 



3S: 



5TMP2: 
STMP4: 
STMP6: 
Irego: 



SFLBOFF 
SSFLBUF 
SACO 
SAC 

sac; 

SACL 

Ilonum 
Ihinum- 
SOBuff: 



Cl: 
C2: 
C3: 



$OBUFl: 



SSOBUF: 



$$OBUl: 



SCNT: 

FLTMPO: 
FLTMPl: 



ASH 

BIC 

MOV 

ASH 

ADD 

BIC 

BIS 

STEXP 

ADD 

CLR 

BIC 

BIS 

LDEXP 

MOV 

RTS 



.BLKW 
.BLKW 

.BLKW 

.BLKW 

.WORD 

.WORD 

.WORD 

.WORD 
:.BLKB 
:.BLKB 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 
• BLKW 
.BLKW 

MSGl 
|FLBUFF 



ii?^4?7,R0 




n 



urn' 



;get accumulator number 

;generate 

jaddress of 

jextended exponent 

;generate instruction 

;t0 get exponent 

jget exponent 

jadd to extended exponent 

;generate instruction 

;T0 LOAD EXPONENT BACK TO ACC 
;LOAD EXPONENT OF 200 
;RESTORE RETURN PC 
;RBTURN 
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SOBUFF 
MSG2 

g|FLBOFF 
$io|UFF 

Mil 

SP2: MSG7 



SP4: 



020040 
- 00"" 



0640 olSElo 01004 

m m Ml 

0040 02004r 



Q20040 
040504 
000 
000040 



020040 
040524 



BUF 
LBUF 



$|OBOF 
HSG3 

III! 

m.. 

MSGS 

177777 
MSGS 
SFLBUF 
MSG2 

MSG6 

SOBUFF 

HSG2 

SOBUFl 

HSG2 

mm 



.ASCIZ 
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MSG3: 
MSG4: 



MSGS: 



.ASCIZ '%' 
.ASCIZ -% 



.ASCIZ '% DATAl DATA2%' 
.ASCIZ '% DATAl 



DAtA2%' 
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XFPBCO.Pll 
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020045 

"88^8 



40524 
045 

90001 



020040 
02Q04Q 



0224_- 

888^8 

020040 
040524 

mm 



020040 

8lg|o^^ 
III 



mm 
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XFPBCO.Pll 

4CSR 
ADDR 
ADDR22 



BEGIN 



oo8i 

0010 
0001 



OOOC 



BITO - 00000 



Bill 
Bill 



_-TlO = 
BlTii = 

"11 : 



Bitia = 

fill i 

BIT6 = 

im : 

BIT9 = 
BREAKS- 



88S8.. 

004000 
OiOQOO 



CDAfAS 
CONFIG 
CSRA 
D*TCKS 
DATER$ 
DVIDl 
END 

ENDIT$ 
ENDS 
ERRTYP 



EXITS = 
EXPEXT 
FLTADD 
FLTDBL 



FLTDIV 
FLTMPY 

FLTMPO 005124R 
FLTMPl 005|34R 
FLTSGC 004366R 
FLfSUB P03500R 
GETPAS= 104415 
GIIBUF|= 104414 
HRDCNT 000044R 
HRDERS= 104405 
HRDPAS 000050R 
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430 
629 
884 



mi 



442 
641 
896 



452 
650 
906 



456 
657 
910 



522 
661 
924 



534 
740 
936 



544 
752 
951 



548 
762 
960 



574 
766 
967 



586 
832 
974 



596 
844 
981 



SKQ 0029 



600 
854 
985 



518* 


570* 


612* 


637* 


736* 


828* 


880* 


920* 


947* 




1062 
404 


1262 
465 




711 


714 


775 


1028# 








809* 


393 
848 


396 

m 

871* 


All 
900 


485 

868* 
1362# 


49 3 
890 


557 
1361# 


674 


694 


693 703 


498 


511 


564 


729 


783 


808 


821 


874 


1027K 




522 


574 


616 


641 


740 


832 


884 


924 


951 
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XrPBCO.Pll 



ICQUNT 



MSG4 
MSGS 

OPBM 
OTOAS 
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989 
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629 



m 
m 

974 



1386 
1410 



1392 
1423# 



1398 



1% 



884 
193 



936 



924 
194 

752 



762 



1422# 



196 
844 



197 

854 



l2it 



307# 



?OSH = 
0SH2 =: 

RESTRT 



354f 



SECT4D 



mt 



SACl 



$AC2 

SAC3 

SCNT 
SFLBOF 
SFLD20 
$FL20 




226 

p: 
lit 
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SECTS 
|ECT5D 

IofIrIs 

SOFPAS 

spopf 

SPSfZ = 
SPl 
SP| 
SPf 
SP4 

in 

SRI 
SR2 
SR3 
SR4 
START 
STAT 
SUBPLG 
SVRO 
SVRl 
SVR2 

syrS 

SVR4 
SVR5 
SVR6 
SYSCHT 

TRPDFD= 

TST2 

VECTOR 

HDTO 
XFLAG 

SACO 
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1263* 1265f 



353# 



320 
337 
665 ft 



363* 

i 
III 

596* 



1341# 

529 
625 
445 



1063* 1065# 



im im nil 



381* 




m 

527 



m 



568 



747 



382 
999 

in: 

773* 
864* 



589 



325ii 
342rf 



391* 

W 

1012 

Wr 
m 



414* 415* 416* 
516 686* 713 

ul ik ur 



891 
889 
929 



32 6# 
343« 



395* 
1028 

Iff 

m' 

424 
721 
817* 
695* 



931 
899 
932 



327# 



399* 
562* 

4C6 
500 
682* 

467* 
723* 
818* 
709 



Win 

10871 



403* 

1044 
414 

506 
686 
794* 
878 



418* 
673* 
792* 
1046 
420* 
512* 
692* 
797 
999* 



464* 
680* 
794 

1315 
423* 
515* 
695 
80x* 

1017* 



472* 

682 

BOO* 

133P/J 
424 
516 
702* 
b04 

1028 



476 487* 497 

724* 725* 726* 

826 134Q# 

721 723 804* 



1365 
1165 



FPBC OEC/Xll SYSTEM EXERCISER 
XFPBCO.Pll 12-0CT-78 11:59 



$HINUM 
$LONUM 

SOBUFF 
SOBUFl 
$RAND 
$REGO 

SREGl 

$RE62 

SREG3 

$TMPO 

$TMP2 

$TMP4 

STMP6 

$$FLBU 
SSOBUF 
ISOBUl 



005060R 
005056R 
00S062R 
005Q72R 

ooJIIeR 

004730R 
004732R 
004734R 
004706R 

004722R 
005002R 



1211 
1210 

% 




M&CYH 
CROSS 

1224* 

w 

1405 
392 

§§? 

442 

896 
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REFERENCE TABLE — USER SYMBOLS 

1249 
155- 



2 

499* 

596 
1409 
1330# 



_554 
650 



463 
864 
464 

479* 

w 

1335# 

469 
1242 

781 
538 

m 

657 
1331# 



1253 


1343# 
844 


896 


960 


470 
872 
472 


490 
873 
482 


554 
875 

555 


562 


510 


534 


559* 


586 


512 


544 


563* 


596 


411 

509 
791 


552 

III 


560 


621* 

1329f 
580 
915 


561* 

?ii 

762 


590 

m 

854 


607* 

m 

906 


609 

'IW 

974 


1336# 


1337# 


136U 


1362# 



1344# 


1 367 


1377 


1391 


1403 


563 


565 


669 


680 


702 


1332# 










691 


701 


774 


782 


792 


676* 


72B 


752 


789* 


820 


716* 


730 


762 


BIO* 


822 


623 


€67 


681 


771 


779 


606 


633 


635 


650 


668 


930 


940 


942 


945 


960 


626 


634* 


635 


657 


914* 


1337# 


1369 


1379 


1387 


1399 


13521 


1371 


1381 


1393 


1407 



000000 
005664 



ERRORS detected: 

DEFAULT GLOBALS GENERATED: 

XFPBC0/XFPBC0/SOL/CRF:SYM=DDXCOM,XFPBC0 
RON-TIHE: 2 3 .4 SECOMDS 



RUN-TIME ratio: 33/6=4.8 
CORE USED: 7K (13 PAGES) 



